home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / Trails / TrailsScreen.MOD < prev    next >
Text File  |  1986-08-05  |  2KB  |  87 lines
  1. (*
  2.     This module initializes the window and screen for
  3.     the trails program.
  4.     
  5.     Created: 5/24/86 by Richie Bielak
  6.     
  7.     Modified:
  8.  
  9.     Copyright (c) 1986 by Richard Bielak
  10.  
  11.     This program maybe freely copied. But please
  12.     leave my name in. Thanks.....Richie
  13.  
  14. *)
  15. IMPLEMENTATION MODULE TrailsScreen;
  16.  
  17. FROM SYSTEM    IMPORT ADR, BYTE, ADDRESS, SETREG;
  18. FROM Intuition IMPORT
  19.      WindowFlags, NewWindow, IDCMPFlags, IDCMPFlagsSet, WindowFlagsSet,
  20.      WindowPtr, ScreenPtr;
  21. FROM Windows   IMPORT OpenWindow, ReportMouse;
  22. FROM Views     IMPORT Hires, ModeSet;
  23. FROM Screens   IMPORT CustomScreen, OpenScreen, NewScreen;
  24.  
  25. VAR
  26.   NULL : ADDRESS;
  27.   MyWindow : NewWindow;
  28.   MyScreen : NewScreen;
  29.   ScreenName : ARRAY [0..20] OF CHAR;
  30.  
  31. (* +++++++++++++++++++++++++++++++++++++++ *)
  32. PROCEDURE InitScreen (VAR s : NewScreen);
  33.   BEGIN
  34.     ScreenName := "Trails!";
  35.     WITH s DO
  36.       LeftEdge := 0; TopEdge := 0; 
  37.       Width := 640; Height := 200;
  38.       Depth := 2;
  39.       DetailPen := BYTE (0); BlockPen := BYTE (1);
  40.       ViewModes := CARDINAL (ModeSet {Hires});
  41.       Type := CustomScreen;
  42.       Font := NULL;
  43.       DefaultTitle := ADR (ScreenName);
  44.       Gadgets := NULL;
  45.       CustomBitMap := NULL
  46.     END;
  47.   END InitScreen;
  48.  
  49. (* +++++++++++++++++++++++++++++++++++++++ *)
  50. PROCEDURE InitWindow (VAR w : NewWindow; sp : ScreenPtr);
  51.   BEGIN
  52.     WITH w DO
  53.       LeftEdge := 0; TopEdge := 0; Width := 640; Height := 200;
  54.       DetailPen := BYTE (0);
  55.       BlockPen := BYTE (1);
  56.       Title := NULL;
  57.       Flags := WindowFlagsSet {Activate, Borderless, BackDrop,
  58.                            ReportMouseFlag};
  59.       IDCMPFlags := IDCMPFlagsSet{CloseWindow, MenuPick, ReqClear,
  60.                         GadgetUp, GadgetDown, MouseButtons, MouseMove};
  61.  
  62.       Type := CARDINAL(CustomScreen);
  63.       CheckMark := NULL;
  64.       FirstGadget := NULL;
  65.       Screen := sp;
  66.       BitMap := NULL;
  67.       MinWidth := 10; MinHeight := 10;
  68.       MaxWidth := 640; MaxHeight := 200;
  69.     END
  70.   END InitWindow;
  71.   
  72. (* ++++++++++++++++++++++++++++++++++++++++ *)
  73. PROCEDURE SetUpScreen (VAR wp : WindowPtr;
  74.                        VAR sp : ScreenPtr);
  75.   BEGIN
  76.     InitScreen (MyScreen);
  77.     (* Define a new screen *)
  78.     sp := OpenScreen (MyScreen);
  79.     InitWindow (MyWindow, sp);
  80.     (* Now open the window *)
  81.     wp := OpenWindow (MyWindow);
  82.   END SetUpScreen;
  83.  
  84. BEGIN
  85.   NULL := 0;
  86. END TrailsScreen.
  87.